COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	INSTRUMENT FM2
C00004 ENDMK
C⊗;
INSTRUMENT FM2;
OSCIL(P4,MAG/P2,P5);
INTRP(P9*P7*MAG,P9*P8*MAG,P10);
OSCIL(U2,P9*MAG,P11);
NOSCIL(U1,U3+P3*MAG,P6);
OUTA←OUTA+U4; END;
INSTRUMENT NOISE;
OSCIL(P4,MAG/P2,P5);
RANDH(MAG*P7,MAG*P8);
OSCIL(U1,MAG*P3+U2,P6);
OUTA←OUTA+U3; END;

ARRAY F5,F6,F7(512); <F1 is already present.
SEG(F5);0,1  1,7  .7,12  .2,20  0,100;<Envelope
SEG(F6);0,1  0,60  1,100; <Slope
SEG(F7);0 1 1 100;

SETMAG;1 25
PLAY;FM2   0 2  100 2000 F2 F1 0  30 880 F7 F1;FINISH;